home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / info / cad08n11.zip / DDUNLOAD.LSP < prev    next >
Lisp/Scheme  |  1994-02-01  |  2KB  |  61 lines
  1. ; This is a dialog box for unloading ADS applications from AutoCAD Release 12.
  2. ; You will be presented with a list of the currently loaded applications. You
  3. ; can tag one or more and they will be unloaded. If no applications are loaded,
  4. ; the list will be blank. Be careful when unloading the ACADAPP ADS application
  5. ; because Release 12 depends on its presence.
  6. ; Written by:
  7. ; Michael Jenkins
  8. ; Gray Construction
  9. ; Lexington, Kentucky
  10.  
  11. (defun C:DDUNLOAD (/ _accept app_list id)
  12.  
  13.    (defun _accept (/ return counter string)
  14.       (setq
  15.          return (get_tile "apps")
  16.       )
  17.       (if (= return "")
  18.          (set_tile "error" "Empty or invalid input")
  19.          (progn
  20.             (setq
  21.                counter 1
  22.                string ""
  23.                return (strcat return " ")
  24.             )
  25.             (while
  26.                (/= counter
  27.                   (1+
  28.                      (strlen return)
  29.                   )
  30.                )
  31.                (if (/= (substr return counter 1) " ")
  32.                   (setq string (strcat string (substr return counter 1)))
  33.                   (progn
  34.                      (xunload (nth (atoi string)app_list))
  35.                      (setq string "")
  36.                   )
  37.                )
  38.                (setq counter (1+ counter))
  39.             )         
  40.             (done_dialog)
  41.          )
  42.       )
  43.    )
  44.  
  45.    ;set up the dialog identification
  46.    (setq id (load_dialog "ddunload"))
  47.  
  48.    ;open dialog
  49.    (new_dialog "ddunload" id)
  50.  
  51.    (start_list "apps")
  52.    (setq app_list (ads))
  53.    (foreach n app_list (add_list n))
  54.    (end_list)
  55.  
  56.    (action_tile "accept" "(_accept)")
  57.    (start_dialog)
  58.    (unload_dialog id)
  59.    (princ)
  60. )
  61.